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OVERLAY MODIFICATIONS TO THE 
FLOATING-POINT SYSTEM PACKAGES, DEC-08-YQYA 

DECUS Program Library Write-up DECUS No. 8-302 


ABSTRACT 

These package overlays enable the expansion of the present basic package (DEC-08-YQYA) 
into 24 different packages each having unique specifications. Capabilities of the various 
packages include: basic and extended functions, and output controller, as in the basic 
package ; and output formatter with four l/O functions, extended memory referencing ability, 
and EAE utilization in multiplication and normalization subroutines. Included in each package 
is a correction of the error in the normalization routine in the basic package. 

GENERAL NOTE 

The packages presented here consist of modifications and additions to the 4 packages described 
in Floating-Point System Programming Manual , DEC-08-YQYA. The latter Manual is the 
basic reference for all packages and is altered or amended only as described below. 

PACKAGE NAMING SCHEME 

The naming scheme provides the easiest means for presenting 24 differenc packages. The 
general form for a package name is"FPPXYZ", where "FPP" denotes a floating-point system 
package, and "X", "Y", and "Z" represent the various symbols discussed below. A series con¬ 
sists of all packages having the same "X", "Y", or "Z", or combination of these. 

"X" is either "S" or "E", where the FPP SYZ series includes 12 packages whose memory refer¬ 
encing abilities exist only in the_single memory field containing the package; and the FPPEYZ 
series includes 12 packages whose memory referencing abilities exist in any (extended) memory 
field 0-7, at least one of which contains the package. 

"Y" is either "S" or "H", where the FPPXSZ series includes 12 packages whose arithmetic is 
carried out solely by '^software" methods; and the FPPXHZ series includes 12 packages whose 
arithmetic is carried out in part by "hardware" methods, i.e. the EAE is employed. 

"21" is a single digit from 1 to 6, inclusive; the larger the digit, the more extensive the 
package's capabilities; where the FPPXY1 series includes 4 packages each having the basic 
functions (Note: The basic functions are" FADD, FSUB, FMPY, FDIV, FGET, FPUT, FNOR, 
FEXT, SQUARE, SQROOT, INPUT, and OUTPUT.) as described in the Manual and on page 3; 
the FPPXY2 series includes 4 packages each having the basic functions (except OUTPUT) and 
the output controller as described in the Manual; the FPPXY3 series includes 4 packages each 
having the basic functions and the output formatter as described on page 5; the FPPXY4 
series includes 4packages each having the basic functions and the extended functions ( Note : 

The extended functions are FSIN, FCOS, FATN, FLOG, FEXP, FLOAT, and FIX.) as de¬ 
scribed in the Manual and on page 7; the FPPXY5 series includes 4 packages each having the 
basic functions (except OUTPUT)^ the extended functions, and the output controller; and 










the FPPXY6 series includes 4 packages each having the basic functions, the extended functions, 
and the output formatter. 

HARDWARE REQUIREMENTS 

All packages require the PDP-8; in addition, those packages in the FPPEYZ series require a 
minimum of 8K of core memory to be useful, and those packages in the FPPXHZ series require 
the Extended Arithmetic Element to function. 


SOFTWARE REQUIREMENTS 

Since the packages are overlays to the basic packages DEC-08-YQYA, the latter 4 packages 
are "required." 

CORE LIMITS 

Each package as it is supplied on binary tape is intended to be loaded into Field 0; however, 
any of the packages can be located in any memory field 0-7 ( see page 8). Regardless of 
the field, the core limits for the various packages remain the same and are: 


FPPSS1 

or 

FPPSHl 

7; 

40-61; 

56 00-7577 

FPPES1 

or 

FPPEH1 

7; 

40-61; 

63; 5553-7577 

FPPSS2 

or 

FPPSH2 

7; 

40-62; 

5400-7577 

FPPES2 

or 

FPPEH2 

7; 

40-63; 

5353-7577 

FPPSS3 

or 

FPPSH3 

7; 

40-62; 

5200-7577 

FPPES3 

or 

FPPEH3 

7; 

40-63; 

5153-7577 

FPPSS4 

or 

FPPSH4 

7; 

40-61; 

4757-7577 

FPPES4 

or 

FPPEH4 

7; 

40-61; 

63; 4732-7577 

FPPSS5 

or 

FPPSH5 

7; 

40-62; 

4557-7577 

FPPES5 

or 

FPPEH5 

7; 

40-63; 

4532-7577 

FPPSS6 

or 

FPPSH6 

7; 

40-62; 

4400-7577 

FPPES6 

LOADING PROCEDURE 

or 

FPPEH6 

7; 

40-63; 

4353-7577 


Having selected the package: 

(a) Load the parent package; 

(b) Overlay (a) with the binary tape of the selected package; 

(c) If the selected package is in the FPPXHZ series, overlay (b) with the binary tape of the 
EAE modification. 

ENTRY POINT 

For all FP PXYZ packages the pseudo-instruction interpreter is entered by JMS I 7, which is 
an effective JMS 5600 . Since INPUT and OUTPUT are pseudo-instructions in most packages, 

entry at points 7400 or 7200 as described in the Manual is usually unnecessary but is available 
for use in all packages . 
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USE 


As in the basic packages, once the FP PXYZ interpreter is entered by JMS I 7, it decodes 
and executes pseudo-instructions as they occur sequentially in memory commencing with the 
register immediately after the one containing JMS I 7, until FEXT = 0 is encountered; control 
is then transferred to the register immediately following the one containing FEXT. (See Manual 
for further description.) For explanatory purposes use of the packages is described by series. 

The FPPXY1 series includes FPPSS1, FPPSH1, FPPES1, and FPPEH1. FPPSS1 and FPPSH1 are 
used much the same as their parent package. Capabilities of each consist of the basic func¬ 
tions. Codes and effects of the basic function pseudo-instructions are described in the Manual 
and in the following INPUT and OUTPUT descriptions. 

INPUT = ,0,013 is the pseudo-instruction equivalent of JMS I 5 as described in the Manual. 
OUTPUT =,0014 is the pseudo-instruction equivalent of JMS I 6 as described in the Manual. 

Both INPUT and OUTPUT make use of the package's teletype output routine (...; TSF; JMP .-1; 
TLS; .. .), and hence the TTO flag must be set prior to execution of either pseudo-instruction. 
Setting the TTO flag is usually done with a TLS command in an initialization segment of the 
user program. Generally, the TTO flag must be set prior to any I/O pseudo-instruction of 
any package, including: INPUT and OUTPUT of the basic functions; and formatted OUTPUT, 
TYPE, SPACE, and CRLF of the output formatter. 

FPPES1 and FPPEH1 are used as FPPSS1 is with the important exception that any of FADD, 

FSUB FMPY, FDIV, FGET, and FPUT which indirectly references "floating-point register" 

Yp (?.e ., the 3 register sequence whose first register has address Y) operates on Yp of Field 

N, where 0<N<7 was set by the most recently executed FCDF N00 pseudo-instruction. 

FCDF N00 = 0N17, where 0<N<7, is the pseudo-instruction which changes the "floating¬ 
point data field" indicator to N. The floating-point data field (FDF) indicated is the memory 
field containing the floating-point registers upon which indirectly referencing pseudo¬ 
instructions operate. As an example consider 


t JMS I 7 

FCDF 400 
• • • 

FGET I W 
FADDX 
FCDF 100 
FMPY I Y 
FCDF 300 
FPUT I Z 

W, A 

X, 2 
2400 

0 

Y, B 

Z, C 
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The latter coding gets the value in Ap of Field 4, adds to it 2.5 jq, multiplies the sum by 

the value in B_ of Field 1, and puts the result in C c Q f Field 3. 
r r 

Summary of Facts for FPPEYZ Series Packages 


1 . The FDF can be referenced only by indirect addressing by pseudo-instructions FADD, 
FSUB, FMPY, FDIV, FGET, and FPUT (unless the FDF is the user program's instruction field, 
in which case Page 0 and the page containing the pseudo-instruction can be directly refer¬ 
enced). 


2. Indirect addressing by a pseudo-instruction references the FDF indicated by the most 
recently executed FCDF N0$ pseudo-instruction. Thus one must keep track of what the FDF 
is while programming in the floating-point system; also the FDF is usually initialized at the 
outset of a user program. 


3. The pseudo-instruction FCDF N0.0 is analogous to the PDP-8 language instruction 
CDF NJ# in all respects. Direct addressing by pseudo-instructions references same page 
or Page 0 floating-point registers; directly and indirectly referencing pseudo-instructions 
may be freely intermixed, along with all op code 0 pseudo-instructions since the FDF is 
temporarily suspended in favor of the package's instruction field during the execution of 
all op code 0 pseudo-instructions except FEXT. With the execution of FEXT, control is 
passed from the interpreter to the register following the one containing FEXT, and the FDF 
is left unchanged from what it was immediately prior to execution of FEXT. ( Note : Op 
code 0 pseudo-instructions include all those whose codes have 000 in Bits 0 - 2 } i.e., all 
pseudo-instructions except FADD, FSUB, FMPY, FDIV, FGET, FPUT, and FNOR.) 


4. The setting of the FDF in no way affects the operation of any machine-language in¬ 
structions in the user program. The interpreter is exited with the (hardware) data field 
register the same as when the interpreter was entered; namely, the (hardware) data field 
is the instruction field of the package. 


5. Register 63 gives the FDF, where C(63) = 62N1, and Field N is the FDF. 

6. The contents of register 16 are lost when any pseudo-instruction except FEXT, FIX, 
TYPE, SPACE, CRLF, or FCDF is executed. 


7. The package can be located in any memory field 0 - 7 , inclusive, by making minor 
changes (see page 8). 

The FPPXY2 series includes FPPSS2, FPPSH2, FPPES2, and FPPEH2. FPPSS2 and FPPSH2 
are used much the same as their parent package. Capabilities of each consist of the basic 
functions except OUTPUT (see Manual and page 3), and the output controller (see Manual). 
(Since immediately prior to an output command to the output controller both Register 62 
and the accumulator must be set to give the format, an OUTPUT pseudo-instruction would 
be of limited value where the output controller is used. The interpreter should be exited, 
format set, and an effective JMS 7200 executed.) FPPES2 and FPPEH2 are used as FPPSS2 
is with the addition of extended memory referencing ability. 


4 




The FPPXY3 series includes FPPSS3, FPPSH3, FPPES3, and FPPEH3 . FPPSS3 and FPPSH3 
are used much the same as FPPSS1 is used with the addition of output formatting within the 
package. Capabilities of each consist of the basic functions (see Manual and page 3), and 
the output formatter. 

The output formatter is a second-level interpreter that enables the user to control output 
format and type text strings without exiting the floating-point package. The output formatter 
decodes and executes four I/O pseudo-instructions: formatted OUTPUT, TYPE, SPACE, and 
CRLF. (Note : The output formatter destroys the contents of Register 57.) 

FORMATTED OUTPUT = ,0,014 is a two-word pseudo-instruction that allows for formatted 
decimal output of C(FAC) while still under interpreter control. The second word gives the 
format. The general form of the pseudo-instruction is: 

• • • 

JMS I 7 
• • • 

OUTPUT 
100'T + R 


where T, R are octal integers 0<T, R<77, and T is the total number of digits to be output, 
and R is the number of digits to the right of the decimal point. (Neither the decimal point 
nor the sign is considered to be a digit.) If T=0, output is in the E format; if R=0, the decimal 
point and all digits to the right of it are not typed. The + sign can be suppressed by changing 
C(7327) from 0253 to 0240. The TTO flag must be set prior to execution (see page 3). A 
carriage return-line feed is not typed after output of C(FAC). (To get a CR-LF after output, 
change C(7207) from 7200 to 1055 and set C(55)/ 0.) Execution of formatted OUTPUT 
destroys the contents of Register 15, as does the output controller. As an example suppose 
C(X p )=/0004/2540/0000/; then: 


JMS I 7 


FGET X 

OUTPUT 

1004 


produces + 10.7500; or 


JMS I 7 

FGET X 

OUTPUT 

0300. 


'it 
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FGETX 

OUTPUT 

0077 


gives +0.107500E+02, The interpreter then goes on to the pseudo-instruction following the 
format word. 

TYPE N$0 = 0N34, where $<N<7, is a two-word pseudo-instruction which allows for output 
of stored character strings while still under interpreter control. The second word contains 
the location of the first character in the string, and N gives the memory field in which the 
string is located. ( Note : For FPPEY3 and FPPEY6 series packages, N can be any field 
0<N<7; for all other packages, N must equal the field containing the package.) Characters 
to be output are read as their 6-bit trimmed ASCII codes, two characters per register, and 
in left-right sequence within a register. Output proceeds in the latter sequence and register 
by register until the string terminator code (= 37) is encountered; control is then returned to 
the package interpreter and the pseudo-instruction following the second word of TYPE N00 
is executed. Four special codes are available: 

00 — carriage return-line feed combination 
34 = carriage return only 

36 = line feed only 

37 = string terminator 

( Note : For 6-bit ASCII codes, see Digital's Introduction to Programming , 1968, Appendix 
B, p. B-l.) The TTO flag must be set prior to execution (see page 3). For example with an 
FPPEY3 or FPPEY6 series package and 

• • • 

JM5 I 7 
• • • 

TYPE 700 
0500 
• • • 

FIELD 7 

*500 

0000 

4040 

0134 

0236 

0337 


produces 





i 

\L 

B A 


where A, B, C are typed in alphabetical order, and is the non-printing symbol for CR-LF. 

SPACE = 0054 is a two-word pseudo-instruction which allows for output of a specified number 
of spaces while still under interpreter control. This number of spaces is equal to the con¬ 
tents of the second word of the pseudo-instruction. If this is 0 , a CR-LF is output. The 
TTO flag must be set prior to execution (see page 3). 


CRLF =0074 is a one-word pseudo-instruction which allows for output of a carriage return¬ 
line feed combination while still under interpreter control. (The TTO flag must be set prior 
to execution.) 


FPPES3 and FPPEH3 are used as FPPSS3 is with the addition of extended memory referencing 
ability. 


The FPPXY4 series includes FPPSS4, FPPSH4, FPPES4, and FPPEH4. FPPSS4 and FPPSH4 
are used much the same as their parent package. Capabilities of each consist of the basic 
functions, and the extended functions. Codes and effects of the extended function pseudo¬ 
instruction are described in the Manual and in FiOAT and FIX below. 

-FLOAT = 00 ]] is a pseudo-instruction that converts C(45) from an 11-bit, signed integer 
to its floating-point equivalent; the normalized result is left in the FAC. 

FIX = 00]2 is a pseudo-instruction that converts C(FAC) from a floating-point number to its 
11-bit, signed integer equivalent, leaving the result in Register 45. Conversion truncates 
bits to the right of the binary point. If C(FAC) is not -2048<C(FAC)<?048, the resulting 
C(45) is in error. 

FPPES4 and FPPEH4 are used as FPPSS4 is with the addition of extended memory referencing 
ability. 

The FPPXY5 series includes FPPSS5, FPPSH5, FPPES5, and FPPEH5. FPPSS5 and FPPSH5 
are used much the same as their parent package. Capabilities of each consist of the basic 
functions except OUTPUT, the extended functions, and the output controller. FPPES5 and 
FPPEH5 are used as FPPSS5 is with the addition of extended memory referencing ability. 

The FPPXY6 series includes FPPSS6, FPPSH6, and FPPES6 and FPPEH6. FPPSS6 and FPPSH6 
are used much the same as FPPSS4 is used with the addition of output formatting. Capabilities 
of each consist of the basic functions, the extended functions, and the output formatter. 
FPPES6 and FPPEH6 are used as FPPSS6 is with the addition of extended memory referencing 
ability. 


List of pseudo-instructions presented here: 
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Mnemonic 

Code 

Comment 

FNOP 

0010 

n 90-msec. delay; analogous to NOP 

FLOAT 

0011 

— 

FIX 

0012 

— 

INPUT 

0013 

— 

OUTPUT 

0014 

— 

formatted 

0014 

2^word pseudo-instruction 

OUTPUT 
TYPE N00 

0N34 

2-word pseudo-instruction 

SPACE 

0054 

2-word pseudo-instruction 

CRLF 

0074 

— 

FCDF N00 

0N17 

— 


MEMORY RELOCATION OF PACKAGES 


The binary tapes supplied contain the packages as intended for use in Field 0. To relocate 
in another memory field 1<M<7, first load selected package into Field 0 . Using an "up" 
bootstrap, transfer an image of the package to Field M. If the packate is of the FPPSYZ 
series, no changes need to be made. If, however, the package is in the FPPEYZ series, 
make the following alterations before using package: if the package's new field is M, 
change contents of 


Register 

From 

Jo 

5642 

6201 

62M1 

5653 

6201 

62M1 

5713 

6201 

62M1 

(TYPE+6 

6201 

62M1 if FPPEY3 of FPPEY6 series) 


NORMALIZATION SUBROUTINE CORRECTION 


The normalization subroutine in DEC-08-YQYA packages can yield the illegal floating¬ 
point number /EXP/4000/0000/, which incidently is the only possible illegal number. If 
the result of an arithmetic operation indicated by a pseudorinstruction is the unnormalized, 
4-word number/E/6000 /0000/W/, where 1<W<3777, and the format is the internally 
utilized triple-precision mantissa, then the normalized, 3-word result is /E-1/4000/0000/. 
This particular number appears to confuse the packages since it simultaneously represents 
-0 and -2 E_1 (and2 E "l?). Given a result /E/6000/0000/W/, 1<W<3777, normalization 
proceeds as follows: 


(a) C(FAC) is negated to/E/l 777/7777/^, where 4001 <W<7777 is the 2's complement 
of W; the result is left in the FAC. Negation is done so that only positive mantissas are 
normalized. 


(b) C(FAC) is shifted left as a 36-bit word until Bit 1 is filled; and fo r^ea ch shift, the 
exponent is decreased by 1. Thus C(FAC) becomes /E-1/3777/7777/2• W, where 
2<2-W<7776. 
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(c) Finally C(FAC) is negated again to regain the original negative value, and C(FAC) = 

/E“1/ 4000/0000/ 2• W/, where 2<2• W<7776. Any subsequent pseudo-instruction operation on 
C(FAC) either first clears Bits 24-35 of the mantissa or ignores their presence. Hence, the 
result is treated as/E- 1/4000/0000/, which is the illegal number. The situation in which 
the problem arose involved the arithmetic calculation (-2.0) - (+2.0) during checkout 
computations of a machine-language version of the fast Fourier transform. The output result 
was -0.9999, which seemed incorrect at best. When the operands were examined, the following 
were found: X=/0002/6000/0000/ , and Y=/000]/3777/7777/ . The calculation proceeded 
as follows: 


(a) Y is negated to - Y=/j 000 1/ 4000/000 1/ 0000/. 

(b) -Y is scaled right until its exponent matches that of X; -Y=/j 0002/6000/0000/4000 /. 

(c) Both X and -Y are scaled right 1 bit to allow for overflow, then they are added: X= 

w Z0003/7000/0000/0000/, -Y=/ 0003/7000/0000/2000/ , and X-Y=/ 0003/6000/0000/2000/. 

(d) The result is normalized to X- Y-/0002/4000/0000/4000/ , and thereafter treated as 

y*-Y=/0002/4000/0000/ , which is the illegal number. A listing of correction is given on page 10. 

PROGRAM LISTINGS 

Complete individual listings are not given; instead, for each package the modifications and 
where necessary their locations are mentioned. Modification listings are found on page 10. 

FPPSS1: Parent listing is the same except for 

6557 7400 FLINTP 

6560 7200 FLOUTP 

and the normalization correction. 

^ FPPSS2: Parent listing is the same except for 

6557 7400 FLINTP 

and the normalization correction. 


FPPSS3: The FPPSS1 listing is the same except for 
6560 5200 OUTPUT 


and the output formatter located in 5200-5354. 
FPPSS4: Parent listing is the same except for 


6555 5563 FLOA 

6556 4757 FIX 

6557 7400 FLINTP 

6560 7200 FLOUTP 
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and the normalization correction. 


FPPSS5: Parent listing is the same except for 


6555 

5563 

FLOA 

6556 

4557 

FIX 

6557 

7400 

FLINTP 


and the normalization correction. 


FPPSS6: The FPPSS4 listing is the same except for 
6560 4400 OUTPUT 


and the output formatter located in 4400-4554. 


FPPESZ series packages: The respective FPPSSZ series package listing is the same except for 
the extended memory modifications. The location of *FCDF is as follows: 


FPPES1 

5553 

FPPES2 

5353 

FPPES3 

5153 

FPPES4 

4732 

FPPES5 

4532 

FPPES6 

4353 


FPPSHZ and FPPEHZ series packages: 
listing is the same except for the EAE 


The respective FPPSSZ or FPPESZ series package 
modifications. 
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/NORMALIZATION CORRECTION PATCH 
*6647 

/ROUTINE CHECKS FOR ILLEGAL FLOATING AC FOLLOWING 
'NORMALIZATION OF NEGATIVE FAC 


6647 

5363 


JMP CHKNEG 

/CALL TO CHECK ROUTINE 




*6763 


6763 

4653 

CHKNEG* 

JMS I NEG 

/NEGATE MANTISSA 

6764 

1045 


TAD HORD 


6765 

7104 


CLL RAL 


6766 

7 643 


SZA CLA 

/IS HORD= 4000 

6767 

5600 


JMP I DNORM 

/fNO-EXI T 

6770 

1046 


TAD LORD 

/YES 

6771 

7640 


SZA CLA 

/IS LORD=0 

6772 

5600 


JMP I DNORM 

/NO-EXIT 

6773 

1253 


TAD NEG 

/YES 

6774 

3045 


DCA HORD 

/6000=>HORD 

6775 

20 44 


ISZ EXP 

/EXP+1=> EXP 

6776 

7000 


NOP 


6777 

5600 


JMP I DNORM 

/EXIT 



/IN ORDER 

TO INSERT NORMALIZE CORRECTION ROUTINE* 



/SUBROUTINE PRCHAR MUST 

BE INCORPORATED INTO SUB- 



/ROUTINE 

INPUT* WHICH IS 

PRCHAR *S ONLY CALLER 




*71 51 


7151 

4772 


JMS I OUTPTT 





*71 55 


7155 

1374 


TAD MRBOUT 





*71 57 


7157 

5773 


JMP I RESTRT 


7160 

1375 


TAD MINCR 


7161 

7640 


SZA CLA 


7 1 62 

5370 


JMP .+6 


7163 

1056 


TAD SWIT2 


7164 

7650 


SNA CLA 


7165 

5370 


JMP .+3 


7166 

1376 


TAD LFED 


7167 

4772 


JMS I OUTPTT 

i 

7170 

1057 


TAD CHAR 


7171 

5742 


JMP I INPUT 


7172 

7344 

OUTPTT* 

OUT 


7173 

7401 

RESTRT* 

FLINTP+1 


7174 

7401 

MRBOUT* 

-377 


7175 

01 62 

MINCR* 

377-215 


7176 

0212 

LFEO* 

212 
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*4400 

/OUTPUT FORMATTER; CALLED BY PSEUDO 00F4* 
/WHERE F=l»3i5»7 


4 400 

0000 

OUTPUT* 

0 



4401 

1 612 


TAD I JUMPL 


/GET PSEUDO 

4402 

71 12 


CLL RTR 



4403 

7012 


RTR 



4404 

0213 


AND MASK03 


/GET BITS 6-7 

4405 

1214 


TAD AC0N7 



4406 

3057 


DCA 57 


/TABLE LOCATION 

4407 

1457 


TAD I 57 



4410 

3057 


DCA 57 


/FUNCTION LOC. 

441 1 

5457 


JMP I 57 


/JUMP TO FUNCTION 

4412 

5653 

JUMPL* 

JUMP 



4413 

0003 

MASK03* 

3 



441 4 

4551 

ACON7* 

TABLE7 





/OUTPUT 

FUNCTION; CALLED BY PSEUDO 0014; WORD 



/FOLLOWING PSEUDO GIVES 

FORMAT AND HAS FORM T. 100+R* 



/WHERE 0<=T*R<=77 AND T 

IS 

TOTAL NO. OF DIGITS TO 



/BE OUTPUT AND R IS NO. 

OF 

DIGITS TO RIGHT OF . 



/IF T=0* 

E FORMAT IS OUTPUT; IF R=0, NO . IS TYPED 

441 5 

4231 

OUTFNO* 

JMS GETNXT 


/GET FORMAT WORD 

441 6 

0227 


AND MASK77 



4417 

3047 


DCA 0VER2 



4420 

1 443 


TAD I OVER1 



4421 

4240 


JMS R0TAT6 



4422 

0227 


AND MASK77 



4423 

30 62 


DCA 62 


/T=> 62 

4424 

1047 


TAD 0VER2 


/R=> AC 

4425 

4630 


JMS I FLO UTL 


/OUTPUT C<FAC> 

4426 

5600 


JMP I OUTPUT 


/EXIT 

4427 

0077 

MASK77, 

77 



4430 

7200 

FLOUTL* 

FLOUTP 





/SUBROUTINE TO GET WORD 

FOLLOWING PSEUDO 

4431 

0000 

GETNXT* 

0 



4432 

1637 


TAD I G02L0C 



4433 

3043 


DCA OVER1 



4434 

2637 


ISZ I G02L0C 


/POINTER TO NEXT PSEUDO 

4435 

1443 


TAD I OVER1 



4436 

5631 


JMP I GETNXT 


/EXIT WITH WORD IN AC 

4437 

5655 

G02L0C* 

GO 2 . 



• 


/SUBROUTINE TO ROTATE AC 6 

BITS RIGHT 

4440 

0000 

R0TAT6* 

0 



4441 

7012 


RTR 



4442 

7012 


RTR 



4443 

7012 


RTR 



4444 

5640 


JMP I ROTAT6 





/SPACE FUNCTION; CALLED 

BY 

PSEUDO 0054; WO RD 



/FOLLOWING PSEUDO GIVES 

NO. 

OF SPACES TO BE OUTPUT; 



/IF 0* OUTPUT CR-LF 



4445 

4231 

SPACE* 

JMS GETNXT 


/GET NO. OF SPACES 

4446 

7450 


SNA 


/IS IT 0 

4447 

5261 


JMP CRLF 


/YES 

4450 

7041 


CIA 


/NO 

4451 

30 43 


DCA OVER1 


/NO. OF SPACES 

4452 

1257 


TAD C240 




12 



4453 

4660 


JMS I OUTLOC 


/OUTPUT SPACE 

4454 

20 43 


ISZ OVER1 


/ARE WE DONE' 

4455 

5252 


JMP .-3 


/NO-NEXT 

4456 

5600 


JMP I OUTPUT 


./YES-EXIT 

4457 

0240 

C24Q, 

240 



4460 

7344 

OUTLOC, 

OUT 





/CRLF FUNCTION* CALLED BY 

PSEUDO 0074 

4461 

1200 

CRLF, 

TAD OUTPUT 



4462 

3 630 


DCA I FLO UTL 


/SET RETURN 

4463 

5664 


JMP I FL7212 


/DO CR-LF, EXIT 

4464 

7212 

FL 7212, 

7212 





/TYPE FUNCTION5 CALLED BY 

PSEUDO 0034* WORD FOLLOWING 



/PSEUDO 

CONTAINS STARTING 

ADDRESS OF CHAR* STRING* 



/CHAR* S 

ARE READ LEFT-RIGHT AS 

6-BIT TRIMMED ASCII, 



/2 PER 1 

WORD, UNTIL HALF- WO RD= 37 

IS READ, WHICH IS 



/STRING 

TERMINATOR* ALSO 00=CR- 

LF, 34=CR, 36=LF • 

4465 

7000 

TYPE, 

NOP 



4466 

7000 


NOP 



4467 

4231 


JMS GETNXT 


/GET STRING SA 

4470 

3043 


DCA OVER1 


/STRING POINTER 

4471 

7000 

TYPSWT, 

NOP 



4472 

1 443 


TAD I OVER1 


/GET WORD 

4473 

7000 


NOP 



4474 

3047 


DCA 0VER2 


/STORE IT 

4475 

7410 


SKP 



4476 

700 1 

TYPRGT, 

I AC 



4477 

70 40 


CMA 



4500 

30 42 


DCA AC1L 


/-2 IF R* -1 IF L 

4501 

1047 


TAD 0VER2 



4502 

20 42 


ISZ AC1L 


/IS L OR R NEXT 

4503 

5305 


JMP .+2 


/R 

4504 

4240 


JMS ROTAT6 


/x 

4505 

0227 


AND MASK77 


/GET 6-BIT CODE 

4506 

7450 


SNA 


/IS IT 00 

4507 

5332 


JMP TYPRLF 


/YES-CR-LF 

4510 

1341 


TAD M37 


/NO 

4511 

7450 


SNA 


/IS IT 37 

4512 

5600 


JMP I OUTPUT 


/YES-EXIT 

4513 

7001 


I AC 


/NO 

4514 

7450 


SNA 


/IS IT 36 

4515 

5337 


JMP TYPLF 


/YES-LF 

4516 

1342 


TAD C2 


/NO 

4517 

7450 


SNA 


/IS IT 34 

4520 

5333 


JMP TYPCR 


/YES-CR 

4521 

1343 


TAD M3 


/NO 

4522 

7510 


SPA 



4523 

1344 


TAD C100 



4524 

1345 


TAD C237 


/GET 8-BIT CODE 

4525 

4660 


JMS I OUTLOC 


/OUTPUT CHAR 

4526 

20 42 

TYPCTL, 

ISZ AC1L 


/WAS L OR R JUST DONE 

4527 

5276 


JMP TYPRGT 


/L-DO R 

4530 

2043 


ISZ OVER1 


/R-ADVANCE POINTER 

4531 

5271 


JMP TYPSWT 


/NEXT WORD 

4532 

7100 

TYPRLF, 

CLL 


/0=>L FOR CR-LF 

4533 

1346 

TYPCR, 

TAD C215 



4534 

4660 


JMS I OUTLOC 


/OUTPUT CR 


13 



4535 

7 430 


SZL 

/WAS CR-LF CALLED 

4536 

5326 


JMP TYPCTL 

/NO-NEXT CHAR 

4537 

1347 

TYPLF* 

TAD C212 

/YES-OUTPUT LF 

4540 

5325 


JMP TYPCTL-1 

/NEXT CHAR 

4541 

7741 

M 37* 

-37 


4542 

0002' 

C2* 

2 


4543 

7775 

M3* 

-3 


4544 

0100 

C100* 

100 


4545 

0237 

C237* 

237 


4546 

0215 

C215* 

215 


4547 

0212 

C212* 

212 


4550 

0000 


0 




/TABLE 

FOR OUTPUT-CLASS 

FUNCTION LOOKUP 

4551 

4415 

TABLE7* 

OUTFNO 


4552 

4465 


TYPE 


4553 

4445 


SPACE 


4554 

4461 


CRLF 



/TYPE FUNCTION FOR EXTENDED MEMORY VERSIONS; CALLED BY 
/PSEUDO 0N34* WHERE N IS THE FIELD IN WHICH THE CHAR. 
/STRING IS LOCATED AND WORD FOLLOWING PSEUDO IS 
/STARTING ADDRESS OF STRING* CHARTS ARE READ LEFT- 
/RIGHT AS 6-BIT TRIMMED ASCII* 2 PER WORD* UNTIL 
/HALF-WORD= 37 IS READ* WHICH IS STRING TERMINATOR; 
/ALSO 00=CR-LF* 34=CR* 36=LF 


4465 

4750 

TYPE* 

*4465 

JMS I SETFLL 

4466 

3271 


DCA TYPSWT 

4473 

6201 


*4473 

CDF 0 

4550 

4357 

SETFLL* 

*4550 

SETFLD 


/GET FIELD N 
/SET SWITCH 


14 



/EXTENDED MEMORY MODIFICATIONS 
*63 

0063 0000 FFI ELD> 0 

*4353 

/FCDF FUNCTION SUBROUTINE; CALLED BY PSEUDO 0N1 1, 
/WHERE N=NEW FLOATING DATA FIELD 


4353 

0000 

FCDF, 

0 


4354 

4357 


JMS SETFLD 

/FORM 62N1 * PUT IN AC 

4355 

30 63 


DCA FFIELD 

/SET FIELD INDICATOR 

4356 

5753 


JMP I FCDF 

/EXIT 



/SUBROUTINE TO TRANSFORM XNXX 

TO 00N0, ADD IN 6201 

4357 

0000 

SETFLD, 

0 


4360 

1766 


TAD I JUMPL2 

/GET PSEUDO 

4361 

7112 


CLL RTR 


4362 

7010 


RAR 


4363 

0367 


AND MASK70 

/GET N 

4364 

1370 


TAD CCDF 


4365 

5757 


JMP I SETFLD 

/EXIT WITH 62N1 IN AC 

4366 

5655 

JUMPL2, 

JUMP 


43 67 

0070 

MASK70, 

70 


4370 

6201 

CCDF, 

6201 




/TABLE FOR PSEUDO-INSTRUCTION 

LOOKUP 

4371 

5716 

•TABLE 1, 

FLAD 


4372 

5715 


FLSU 


4373 

5762 


FLMY 


4374 

630 5 


FLDV 


4375 

5676 


FLGT 


4376 

5705 

FLPTL, 

FLPUT 


4377 

5735 


NORF 





*5600 




/MAIN INTERPRETER FOR EXTENDED 

MEMORY FLOATING-POINT 



/package; 

FOLLOWING THE PSEUDO 

FCDF N00, ANY OF THE 



/PSEUDOS 

FADD, FSUB, FMPY, FDI V* FGET, OR FPUT WHICH 



/REFERENCE THE "FLOATING REGIS 

TER" Y INDIRECTLY, 



/OPERATES 

ON Y OF FIELD N 


5 600 

-0000 

FPNT, 

0 


5601 

7300 


CLA CLL 


5602 

30 43 


DCA OVER1 

/CLEAR THIRD WORDS OF 

5 603 

3047 


DCA 0VER2 

/FAC AND OPERAND 

5604 

1 600 


TAD I FPNT 

/GET PSEUDO 

5605 

3255 


DCA JUMP 


5606 

2200 


ISZ FPNT 

/POINTER TO NEXT PSEUDO 

5 607 

1255 


TAD JUMP 


5610 

7106 


CLL RTL 


561 1 

7006 


RTL 


5612 

0260 


AND MASK3 

/GET OP CODEtBITS 0-2) 

5613 

7450 


SNA 

/IS OP CODE=0 

5614 

5337 


JMP EXIT 

/YES 

5615 

1374 


TAD TABLE 

/NO 

561 6 

3256 


DCA JUMP2 

/LOCATION OF FUNCTION ADD 

5617 

1255 


TAD JUMP 


5620 

0263 


AND PAGENO 


5621 

7650 


SNA CLA 

/IS PAGE 0 REF. MADE 

5 622 

5225 


JMP .+3 

/YES 

5623 

1261 


TAD MASKS 

/NO 

5624 

0200 


AND FPNT 



15 



5625 

3257 


DCA ADDR 


/OPERAND ADD. BITS 0-4 

5626 

1262 


TAD MASK7 



5627 

0255 


AND JUMP 


/OP. ADD. BITS 5-11 

5630 

1257 


TAD ADDR 



5 631 

3257 


DCA ADDR 


/ENTIRE ADD. 

5632 

1 656 


TAD I JUMP2 



5 633 

3057 


DCA 57 


/FUNCTION ADD. 

5634 

1264 


TAD INDRCT 



5635. 

0255 


AND JUMP 



5636 

7650 


SNA CLA 


/IS REF. INDIRECT 

5 637 

5243 


JMP LOOP01 


/NO 

5 640 

1 657 


TAD I ADDR 


/YES 

5641 

3257 


DCA ADDR 


/EFF. ADD. OF OPERAND 

5642 

6201 

DFSlvIT, 

6201 


/CDF N0, SET BY LAST FCDF 

5643 

7240 

LOOP01, 

STA 



5644 

1257 


TAD ADDR 



5645 

3016 


DCA 16 


/ADD. OF OPERAND - 1 

5646 

1256 


TAD JUMP2 



5 647 

1265 


TAD MFLPTL 



5650 

7510 


SPA 


/IS PSEUDO FPUT OR FNOP 

5651 

5266 


JMP GETOPR 


/NO-GET OPERAND 

5652 

7640 


SZA CLA 


/YES-t'.HICH ONE 

5653 

6201 

LOOP02, 

620 1 


/FNOR-RESET FIELD 

5654 

•5457 


JMP I 57 


/JUMP TO FUNCTION 

5655 

0000 

JUMP, 

0 



5656 

0000 

JUMP2, 

0 



5657 

0000 

ADDR, 

0 



5660 

0017 

MASK3, 

1 7 



5661 

7 600 

MASK 5, 

7 600 



5 662 

0177 

MASK 7, 

1 77 



5663 

0200 

PAGENO, 

200 



5664 

0400 

INDRCT, 

400 



5 665 

3402 

MFLPTL, 

- FLPTL 





/ROUTINE 

TO PUT OPERAND IN FAC1 

5666 

7200 

GETOPR, 

CLA 



5667 

1416 


TAD I 16 



5670 

3040 


DCA EX 1 



5671 

1 416 


TAD I 16 



5672 

3041 


DCA AC1H 



5673 

141 6 


TAD I 16 



5674 

30 42 


DCA AC1L 



5675 

5253 


JMP LOOP02 


/RESET FI ELD, JUMP TO FUNC. 




*5705 





/FPUT FUNCTION* CALLED 

BY 

PSEUDO 6000+400.I+Y 

5705 

1044 

FLPUT, 

TAD EXP 



5706 

3416 


DCA I 16 



5707 

1045 


.TAD HORD 



5710 

341 6 


DCA I 16 



5711 

1046 


TAD LORD 



5712 

341 6 


DCA I 16 



5713 

.6201 


6201 


/RESET FIELD 

5714 

5201 


JMP FPNT+1 


/NEXT PSEUDO 



/FSUB FUNCTION; CALLED 

BY 

PSEUDO 2000+400.I+Y 

5715 

4775 

FLSU, 

JMS I OPMINS 


/NEGATE FAC1,THEN ADD 



/FADD FUNCTION* CALLED 

BY 

PSEUDO 1000+400.I+Y 

5716 

4772 

FLAD, 

JMS I ALGN 





*57 20 

5720 4773 JMS I UNORM 

*5735 


/FNOR FUNCTION AND END 
/PSEUDO 7000 


5735 

4771 

NORF* 

JMS I NORM 
*5737 



/DISPATCHER FOR OP COD 

5737 

1255 

EXIT* 

TAD JUMP 

5740 

0260 


AND MASK3 

5741 

7450 


SNA 

5742 

5600 


JMP I FPNT 

5743 

1376 


TAD A CON 6 

5744 

3256 


DCA JUMP2 

5745 

1656 


TAD I JUMP2 

5746 

3256 


DCA JUMP2 

5747 

1200 


TAD FPNT 

5750 

3377 


DCA GO 2 

5751 

1242 


TAD DFSWIT 

5752 

30 63 


DCA FFIELD 

5753 

3242 


DCA DFSWIT 

5754 

4656 


JMS I JUMP2 

5755 

1377 


TAD GO2 

5756 

3200 


DCA FPNT 

5757 

1063 


TAD FFIELD 

5760 

32 42 


DCA DFSWIT 

5761 

5201 


JMP FPNT+1 



/FMPY 

FUNCTION** CALLED 

5762 

7201 

FLMY* 

CLA IAC 

5763 

10 40 


TAD EX1 

5764 

1044 


TAD EXP 

5765 

30 44 


DCA EXP 

5766 

4770 


JMS I MULT 

57 67 

5201 


JMP FPNT+1 

5770 

6221 

MULT* 

DMULT 

5771 

6600 

NORM* 

DNORM 

5772 

6020 

ALGN* 

ALIGN 

5773 

6564 

UNORM* 

D UNORM 

5774 

4370 

TABLE* 

TABLE 1-1 

577 5 

6400 

0 PMINS 

* MINUS2 

5776 

6544 

ACON6* 

TABLE6-1 

5777 

0000 

G02* 

<3 

*6563 

6563 

4353 


FCDF 


F FLADJ FNOR CALLED BY 


0 FUNCTIONS 

/GET PSEUDO BITS 8-11 
/IS IT FEXT<=0> 

/YES-EXIT PACKAGE' 

/NO 

/TABLE LOC. OF FUNC. ADD. 

/FUNCTION ADD. 

/SAVE PO IN TER* ALLOWING 
/INT. CALL TO DEPTH- OF 1 
/INT. INDIRECTS REF. THIS 
/FIELD REGARDLESSLY 
/SUSPEND INDIRECT FIELD 
/CALL FUNC. AS SUBROUT. 

/RESTORE POINTER 

/RESTORE INDIRECT FIELD 
/NEXT PSEUDO 
BY PSEUDO 3000+400.I+Y 


/ADD EXPONENTS 
/MULT. MANTISSAS 
/NEXT PSEUDO 


/OP CODE 17 


17 



/EAE PATCHES TO FPP SERIES 
*6221 




/EAE MULTIPLY SUBROU' 

6221 

0000 

DMULT* 

0 

6222 

1363 


TAD SMACLA 

6223 

3347 


DCA SNSWIT 

6224 

4336 


JMS SIGN 

6225 

10 42 


TAD AC1L 

6226 

3301 


DCA PLIER 

6227 

1046 


TAD LORD 

6230 

4277 


JMS TIMES 

6231 

7710 


SPA CLA 

6232 

7001 


I AC 

6233 

1367 


TAD HPROD 

6234 

30 47 


DCA 0VER2 

6235 

1041 


TAD AC1H 

6236 

3301 


DCA PLIER 

6237 

1046 


TAD LORD 

6240 

4277 


JMS TIMES 

6241 

1047 


TAD 0VER2 

6242 

30 47 


DCA 0VER2 

6243 

7004 


RAL 

6244 

1367 


TAD HPROD 

6245 

3370 


DCA S2 

6246 

1045 


TAD HORD 

6247 

3301 


DCA PLIER 

6250 

1042 


TAD AC1L 

6251 

4277 


JMS TIMES 

6252 

10 47 


TAD 0VER2 

6253 

3047 


DCA 0VER2 

6254 

7004 


RAL 

6255 

1367 


TAD HPROD 

6256 

1370 


TAD S2 

6257 

3370 


DCA S2 

6260 

1041 


TAD AC1H 

6261 

3301 


DCA PLIER 

6262 

1045 


TAD HORD 

6263 

4277 


JMS TIMES 

6264 

.1370 


TAD S2 

6265 

3046 


DCA LORD 

6266 

7004 


RAL 

6267 

1367 


TAD HPROD 

6270 

30 45 


DCA HORD 

6271 

4760 


JMS I NORMF 

6272 

7000 


NOP 

6273 

2365 


ISZ SGN 

6274 

5621 


JMP I DMULT 

6275 

4773 


JMS I MINS 

6276 

5621 


JMP I DMULT 

6277 

0000 

TIMES* 

0 

6300 

7425 


MOL MUY 

6301 

0000 

plier* 

0 

6302 

3367 


DCA HPROD 

6303 

7501 


MQA 

6304 

5677 


JMP I TIMES 




*6600 


18 



/EAE NORMALIZE SUBROUTINE! NOTE: IN SINGLE CASE OF 
/C<FAC) = /E/600O/0000/777.7> = W> = 4000/> SUBROUTINE GIVES 
//E/6000/0000/ INSTEAD OF /E-1/4000/0001/! IE. BIT 

THIS ONE INSTANCE 



/’LOSES 

SIGNIFICANCE If 

6600 

0000 DNORM* 

0 

6601 

7300 

CLA CLL 

6602 

1046 

TAD LORD 

6603 

7440 

SZA 

6604 

5211 

JMP NRMHL+1 

6605 

1045 

TAD HORD 

6606 

7650 

SNA CLA 

6607 

5240 

JMP CK0VR2 

6610 

1046 NRMHL* 

TAD LORD 

6611 

7421 

MOL 

6612 

1045 

TAD HORD 

6613 

741 1 

NMI 

661 4 

3045 

DCA HORD 

6615 

1047 

TAD 0VER2 

661 6 

7421 

MOL 

6617 

7441 

SCA 

6620 

7450 

SNA 

6621 

5600 

JMP I DNORM 

6622 

1367 

TAD Ml 5 

6623 

7500 

SMA 

6624 

5244 

JMP NRMLO 

6625 

1370 

TAD Cl 4 

6626 

3231 

DCA NOSHL 

6627 

1046 

TAD LORD 

6630 

7413 

SHL 

6631 

.0000 NOSHL* 

0 

6632 

3046 

DCA LORD 

6633 

7501 

MOA 

6634 

3047 

DCA 0VER2 

6635 

1231 

TAD NOSHL 

6636 

7001 

I AC 

6637 

5363 

JMP FEXPON 

6640 

1047 CKOVR2> 

TAD 0VER2 

6641 

7450 

SNA 

6642 

5365 

JMP FEXPON+2 

6643 

7421 

MQL 

6644 

7200 NRMLO* 

CLA 

6645 

1046 

TAD LORD 

6646 

741 1 

NMI 

6647 

3045 

DCA HORD 

6650 

7501 

MOA 

6651 

3046 

DCA LORD 

6652 

30 47 

DCA 0VER2 

6653 

7 441 

SCA 

6654 

1370 

TAD Cl 4 

6655 

5363 

JMP FEXPON 
*6763 

67 63 

7041 FEXPON* 

CIA 

6764 

1044 

TAD EXP 

6765 

3044 

DCA EXP 

6766 

5600 

JMP* I DNORM 

6767 

7763 Ml 5* 

-15 

6770 

0014 C 1 4# 

14 


23 
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